home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / DISK2 / PORTAL.SC_ / PORTAL.SC
Encoding:
Text File  |  1996-04-16  |  463 b   |  33 lines
  1. ;
  2. proc main
  3.  
  4.    ; Delay for 3 seconds first to allow host time
  5.    ; to send initial characters.
  6.  
  7. ;   delay 3
  8.    transmit "^M"
  9.  
  10.    ; wait for e:
  11.  
  12.    waitfor "e:"
  13.    transmit "+"
  14.    transmit "^M"
  15.  
  16.    waitfor "ame:"
  17.    transmit "pinip,li00"
  18.    transmit "^M"
  19.  
  20.    ; Enter the user ID: 
  21.  
  22.    waitfor "ogin:"
  23.    transmit $USERID
  24.    transmit "^M"
  25.  
  26.    ; Enter the password:
  27.  
  28.    waitfor "ord:"
  29.    transmit $PASSWORD
  30.    transmit "^M"
  31.  
  32. endproc
  33.